home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 10 / BBS In A Box Volume X (AMUG) (January 1994).bin / Files / DA / A / AsyncApplinkDA.cpt / AsyncApplinkDA / Async Appletalk.rsrc / STR#_1281.txt < prev   
Encoding:
Text File  |  1986-12-24  |  1.2 KB  |  117 lines
  1. stop 1
  2.  
  3. wait 180
  4.  
  5. rem error return (53)
  6.  
  7. stop 0
  8.  
  9. rem receive 90 64
  10.  
  11. rem send 
  12.  
  13.  
  14. wait 120
  15.  
  16. rem Wait for NED to get ready (48)
  17.  
  18. display              Connected.
  19.  
  20. goto 54
  21.  
  22. display           Busy, try again.
  23.  
  24. goto 54
  25.  
  26. display          Error, try again.
  27.  
  28. goto 54
  29.  
  30. display            Dialing Failed.
  31.  
  32. loop
  33.  
  34. if busy 45
  35.  
  36. if error 43
  37.  
  38. if data mode 47
  39.  
  40. receive 300 10
  41.  
  42. count 8
  43.  
  44. send 
  45.  
  46.  
  47. dial
  48.  
  49. rem (31) 
  50.  
  51. display               Dialing ...
  52.  
  53. rem Modem responded, try dialing.
  54.  
  55. rem (29)
  56.  
  57. goto 54
  58.  
  59. display No response from modem.
  60. Check your cables, etc.
  61.  
  62. rem (26) No response from Modem.
  63.  
  64. loop
  65.  
  66. if ok 31
  67.  
  68. receive 75 10
  69.  
  70. count 4
  71.  
  72. send ATE0
  73.  
  74.  
  75. rem (20) Send a command to modem.
  76.  
  77. goto 54
  78.  
  79. display No response from modem.
  80. Check your cables, etc.
  81.  
  82. loop
  83.  
  84. if NUMBER 31
  85.  
  86. receive 120 46
  87.  
  88. send 
  89.  
  90.  
  91. count 3
  92.  
  93. display     Cermetek Dialer V1.0B1
  94.  
  95. display It is an error to display this message.
  96.  
  97. goto 12
  98.  
  99. rem in the dialing language.
  100.  
  101. rem This example uses each statement
  102.  
  103. rem 7
  104.  
  105. rem Version 1.0b1 November 1986
  106.  
  107. rem 5
  108.  
  109. rem By Rich Brown.
  110.  
  111. rem STR# ID=128 contains the current dialing program.  To change, renumber the current #128; set the new ID to 128 (use Get Info with ResEdit).
  112.  
  113. rem The Cermetek is not Hayes compatible.
  114.  
  115. rem This program dials a Cermetek 1200 baud modem
  116.  
  117.